From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 27 Mar 1993 04:20:05 +0000 (+0000)
Subject: (Fchar_equal): Don't ignore high bits of character.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96676
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c34beca9541463bc8cc1aad6e4d295ef210fc81d;p=emacs.git

(Fchar_equal): Don't ignore high bits of character.
---

diff --git a/src/editfns.c b/src/editfns.c
index d936dc4cdb6..99365930c23 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1416,7 +1416,8 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.")
   CHECK_NUMBER (c2, 1);
 
   if (!NILP (current_buffer->case_fold_search)
-      ? downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)]
+      ? (downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)]
+	 && (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff))
       : XINT (c1) == XINT (c2))
     return Qt;
   return Qnil;